home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Canadian & World Encyclopedia 1998
/
The Canadian & World Encyclopedia 1998 - Disc 2.iso
/
pc
/
pb
/
profile.dir
/
00968_Script_utility scripts
< prev
next >
Wrap
Text File
|
1997-07-29
|
547b
|
18 lines
on precast preloadlist, prebool
cursor 4
unload
-- put "cast: "&getat(preloadlist,1)
set preprebool = the preloadeventabort
if prebool = TRUE or prebool = FALSE then set the preloadeventabort = prebool
-- put "mem before: "&the freebytes / 1000
repeat with x in preloadlist
preloadcast x
end repeat
repeat with x in preloadlist
-- put "cast "& string(x) &": "&the preload of cast x
end repeat
-- put "mem after: "&the freebytes / 1000
set the preloadeventabort = preprebool
cursor 0
end